home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Tutorial / ARexx Tutorial / TuteRexx / DOpusProgress.dopus5 < prev    next >
Encoding:
Text File  |  1998-09-04  |  509 b   |  20 lines
  1. /* DopusProgress.dopus5 */
  2. options results
  3. address 'DOPUS.1'
  4. dopus front
  5. dopus progress name info info2 info3 bar abort
  6. handle = result
  7. dopus progress handle title "DOpus Progress Test"
  8. dopus progress handle info "Counting from 10 to 0"
  9. dopus progress handle info2 "Press abort to end"
  10. do i = 10 to 0 by -1
  11.   dopus progress handle bar 10 i
  12.   dopus progress handle info3 i" to go."
  13.   address command wait 1
  14.   dopus progress handle abort
  15.   if result = 1 then leave
  16. end
  17. dopus progress handle off
  18. dopus back
  19. exit
  20.